home *** CD-ROM | disk | FTP | other *** search
/ Aminet 46 / Aminet 46 (2001)(GTI - Schatztruhe)[!][Dec 2001].iso / Aminet / text / print / Epson_400.lha / Install_Driver < prev    next >
Text File  |  2001-03-28  |  1KB  |  48 lines
  1. . $VER: Install_Printer_Driver 2.4 (28/3/01)
  2. . Peter Hutchison
  3.  
  4. . WB 2.x
  5. If Not Exists c:RequestChoice
  6.    Copy Epson_Stylus_400#? Devs:Printers
  7.    Sys:Prefs/Printer
  8.    Sys:Prefs/PrinterGfx
  9.    Quit
  10. Endif
  11. . WB 3.x
  12. RequestChoice >env:cpu "Select Processor version" "Which version of driver do you require?" "68000|68020|68040|Cancel"
  13. If $CPU EQ "0"
  14.    Quit
  15. endif
  16. If $CPU EQ "1"
  17.   Copy Epson_Stylus_400.000 to t:Driver
  18. Endif
  19. IF $Cpu EQ "2"
  20.   Copy Epson_Stylus_400.020 to t:Driver
  21. Endif
  22. IF $Cpu EQ "3"
  23.   Copy Epson_Stylus_400.040 to t:Driver
  24. Endif
  25. Copy t:Driver to t:Epson_Stylus_300 Quiet
  26. Copy t:Driver to t:Epson_Stylus_400 Quiet
  27. Copy t:Driver to t:Epson_Stylus_440 Quiet
  28. Copy t:Driver to t:Epson_Stylus_460 Quiet
  29. Copy t:Driver to t:Epson_Stylus_480 Quiet
  30. Copy t:Driver to t:Epson_Stylus_500 Quiet
  31. If Exists C:RequestFile
  32.   RequestFile >env:Driver Drawer t: Pattern "Epson#?" Title "Select Driver" Noicons
  33.   Copy $Driver Devs:Printers quiet
  34. Else
  35.   Copy T:Driver Devs:Printers/Epson_Stylus_400
  36. Endif
  37. Delete t:Driver t:Epson#? quiet
  38. Delete sys:prefs/EpsonPrefs#? envarc:EpsonPrefs.prefs Quiet
  39. RequestChoice >env:NewPref "Printer Prefs" "Do you wish to change Printer Prefs?" "Yes|No"
  40. If $NewPref EQ "1"
  41.   sys:prefs/printer
  42. Endif
  43. RequestChoice >env:NewPref "PrinterGfx Prefs" "Do you wish to change PrinterGfx Prefs?" "Yes|No"
  44. If $NewPref EQ "1"
  45.   sys:prefs/printergfx
  46. Endif
  47.  
  48.